perm filename COMP2.PAL[AL,HE]1 blob sn#290135 filedate 1977-06-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.IFF
C00003 ENDMK
CāŠ—;
;.IFF
;.PRINT /Using COMT
;/
;.INSRT	COMT.PAL[AL,HE]
;.ENDC

.IF2
	FOO==.
	.INFO <First location after pseudo code = >,\FOO
	.IFZ K3
            .IFL ARMCODE-FOO
              .ERROR Pseudo code may run into the arm code.
	    .ENDC
	.IFF
	    .IFL 150000-FOO
	      .ERROR Pseudo code may run out of memory.
	    .ENDC
	.ENDC
.ENDC

.END